home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_121_(06-1985).d64 / 12 days xmas-vic (.txt) next >
Commodore BASIC  |  2019-04-13  |  2KB  |  81 lines
  1. 10 POKE36878,5:S1=36876:S2=36875:S3=36874
  2. 20 J=1
  3. 22 C=36879
  4. 25 PRINT"[147]":CO=J+153:IFJ>6THENCO=J+211
  5. 26 ONJGOSUB611,610,609,608,607,606,605,604,603,602,601,600
  6. 28 POKEC,CO
  7. 30 READD,N1,N2,N3
  8. 35 IFD=-9ANDJ=12THEN9999
  9. 40 IFD=-9THEN500
  10. 60 IFD=-1ANDJ>5THEN1000
  11. 70 IFD=-1ANDJ=5THEN2000
  12. 80 IFD=-1ANDJ>1THENGOSUB800
  13. 90 TE=200:K=TE*D:X=TE/10
  14. 95 POKES1,N1:POKES2,N2:POKES3,N3:FORT=1TOK:NEXT:GOTO30
  15. 100 DATA 1,195,0,0,0,0,0,0,1,195,0,0,0,0,0,0
  16. 140 DATA 1,195,219,232,1,195,221,235,1,209,225,237,0,0,225,237
  17. 180 DATA 1,209,0,0,0,0,0,0,1,209,225,237,1,209,228,238
  18. 220 DATA 1,207,225,0,1,209,0,0,1,215,231,240,1,219,231,0
  19. 260 DATA 0,219,0,0,1,221,231,225,1,215,231,0,1,219,232,232
  20. 300 DATA 1,215,232,231,1,219,232,232,1,221,232,235
  21. 320 DATA -1,0,0,0
  22. 340 DATA 2,225,232,237,0,225,0,237,1,228,232,238,1,221,232,238
  23. 380 DATA 1,219,232,240,1,209,232,240,2,215,231,225,6,209,219,232
  24. 420 DATA -9,0,0,0
  25. 500 RESTORE:J=J+1:GOTO25
  26. 600 PRINT"12 DRUMMERS DRUMMING"
  27. 601 PRINT"11 PIPERS PIPING"
  28. 602 PRINT"10 LORDS A-LEAPING"
  29. 603 PRINT"9 LADIES DANCING"
  30. 604 PRINT"8 MAIDS A-MILKING"
  31. 605 PRINT"7 SWANS A-SWIMMING"
  32. 606 PRINT"6 GEESE A-LAYING"
  33. 607 PRINT"5 GOLDEN RINGS"
  34. 608 PRINT"4 CALLING BIRDS"
  35. 609 PRINT"3 FRENCH HENS"
  36. 610 PRINT"2 TURTLE DOVES"
  37. 611 PRINT"PARTRIDGE IN PEAR TREE":RETURN
  38. 800 FORI=1TOJ-1
  39. 810 POKES1,225:POKES2,232:POKES3,237:GOSUB4000
  40. 820 POKES3,238:GOSUB4000
  41. 830 POKES1,215:POKES2,231:POKES3,240:GOSUB4000
  42. 840 POKES1,219:GOSUB4000
  43. 850 POKES1,221:POKES3,225:GOSUB3500:NEXT
  44. 860 POKES1,219:POKES2,232:POKES3,0:GOSUB4000
  45. 870 POKES1,221:GOSUB4000
  46. 880 RETURN
  47. 1000 FORI=1TOJ-5
  48. 1010 POKES1,225:POKES2,232:POKES3,237:GOSUB4000
  49. 1020 POKES3,238:GOSUB4000
  50. 1030 POKES1,215:POKES2,231:POKES3,240:GOSUB4000
  51. 1040 POKES1,219:GOSUB4000
  52. 1050 POKES1,221:POKES3,225:GOSUB4000
  53. 1060 POKES1,215:GOSUB4000:NEXT
  54. 2000 POKES1,225:POKES2,232:POKES3,237:GOSUB3000
  55. 2010 POKES1,228:POKES2,232:POKES3,236:FORT=1TOTE/2+X:NEXT
  56. 2020 POKES1,223:FORT=1TO3.5*TE+X:NEXT
  57. 2030 POKES1,225:POKES2,232:POKES3,235:GOSUB3000
  58. 2040 POKES2,231:POKES3,225:GOSUB3000
  59. 2050 POKES1,225:POKES2,237:POKES3,209:GOSUB4000
  60. 2060 POKES1,221:POKES2,235:GOSUB4000
  61. 2070 POKES1,219:POKES2,232:GOSUB4000
  62. 2080 POKES1,215:POKES2,225:GOSUB4000
  63. 2090 POKES1,209:POKES2,219:GOSUB3500
  64. 2100 POKES1,221:POKES2,221:POKES3,235:GOSUB4000
  65. 2110 POKES2,225:POKES3,237:GOSUB4000
  66. 2120 POKES1,201:POKES2,221:GOSUB4000
  67. 2130 POKES2,225:GOSUB4000
  68. 2140 POKES1,209:POKES2,221:POKES3,235:GOSUB3500
  69. 2150 POKES1,215:POKES2,231:POKES3,225:GOSUB4000
  70. 2160 POKES1,209:POKES2,228:GOSUB4000
  71. 2170 POKES1,207:POKES2,225:GOSUB4000
  72. 2180 POKES1,201:POKES2,215:GOSUB4000
  73. 2190 POKES1,195:POKES2,207:GOSUB3500
  74. 2200 POKES1,219:POKES3,232:POKES2,225:GOSUB4000
  75. 2210 POKES1,221:GOSUB4000
  76. 2220 GOTO30
  77. 3000 FORT=1TO2*TE+X:NEXT
  78. 3500 FORT=1TOTE+X:NEXT
  79. 4000 FORT=1TOTE+X:NEXT:RETURN
  80. 9999 POKES3,225:GOSUB3500:POKES3,209:GOSUB3000:POKE36878,0:POKES1,0:POKES2,0:POKES3,0
  81.